home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 May / PC Answers CD-ROM 7 (Future Publishing) (May 1995).iso / vbits / code / cert / trk3_eg / jfw / jfwedit.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-08-04  |  2.8 KB  |  86 lines
  1. frmEdit
  2.     Edit Form
  3. Form15(
  4. Command1
  5. Cancel
  6.     cmdcancel
  7. Clear
  8. cmdOk
  9. txtEdit
  10. txtEdit
  11. txtEdit
  12. txtEdit
  13. txtEdit
  14. txtEdit
  15. txtEdit
  16. txtEdit
  17. txtEdit
  18. txtEdit
  19. txtEdit
  20. Label12
  21. Answer 5
  22. Label11
  23. Answer 4
  24. Label10
  25. Answer 3
  26. Label9
  27. Answer 2
  28. Label8
  29. Answer 1
  30. Label7
  31. Question 5
  32. Label6
  33. Question 4
  34. Label5
  35. Question 3
  36. Label4
  37. Question 2
  38. Label3
  39.     Question1
  40. lblEdit
  41. Topic
  42. txtEdit_Change
  43. Index
  44. cmdOk_Click
  45. fname
  46.     txtoutputF
  47. topic
  48.     lsttopics
  49.     ListCount
  50. cmdNew
  51. Enabled
  52. Command2_Click
  53. topicnum
  54. txtEdit;
  55. frmlist
  56.     Form_Load
  57. frmedit
  58. CmdCancel_Click
  59. Command1_Click
  60. modal
  61. modular
  62. jfwfile
  63.     cleantext
  64. templ
  65. temp2
  66. text1
  67. whend
  68. whenend
  69. wenend
  70. tempr
  71. tcleantext
  72. Enddsif
  73. Enddif
  74. cleantext
  75. CmdCancel_Click
  76. cmdOk_Click
  77. If j = 0 And Not (IsNull(temp)) Then lsttopics.AddItem temp
  78. topic(I, j) = temp
  79. If j = 0 And Not (IsNull(temp)) Then frmlist.lsttopics.AddItem temp
  80.  Close all files.
  81. If frmlist.lsttopics.ListCount < 5 Then
  82.    frmlist.cmdNew.Enabled = True
  83.    frmlist.cmdNew.Enabled = False
  84. End If
  85. Command1_Click
  86.